home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / ti57.sha < prev    next >
Text File  |  1994-03-01  |  3KB  |  57 lines
  1. 1 ERASE P$:DIM P$(255):N$=""
  2. 2 ON ERROR GOTO 1000
  3. 5 CLS:PRINT "- TI 57 V1.00 - (c) Wtel 1990";CHR$(13);
  4. 6 PRINT "*:DEL,H:HLP,NoProg,C:CAT:";:INPUT@(3);N$:IF N$="" THEN GOTO 5
  5. 7 IF N$="C" THEN1 ERASE P$:DIM P$(255):N$=""
  6. 2 ON ERROR GOTO 1000
  7. 5 CLS:PRINT "- TI 57 V1.00 - (c) Wtel 1990";CHR$(13);
  8. 6 PRINT "*:DEL,H:HLP,NoProg,C:CAT:";:INPUT@(3);N$:IF N$="" THEN GOTO 5
  9. 7 IF N$="C" THEN GOSUB 500:GOTO 5
  10. 8 IF N$="*" THEN GOSUB 600:GOTO 5
  11. 9 IF N$="H" THEN GOSUB 700:GOTO 5
  12. 10 RESTORE#:RESTORE# "P"+N$:READ# A$:C=-1:NE=0
  13. 15 READ# A$:IF LEFT$(A$,1)<>"#" THEN PRINT "Le debut du programme doit com- mencer par #.":END
  14. 20 C=C+1:READ# L$:L=LEN(L$):IF L>8 THEN L$=LEFT$(L$,8):IF RIGHT$(L$,1)=" " AND LEFT$(L$,1)<>"-" THEN L$=LEFT$(L$,5) ELSE IF RIGHT$(L$,1)=" " THEN L$=LEFT$(L$,6)
  15. 21 IF L>8 THEN IF RIGHT$(L$,1)=" " AND LEFT$(L$,1)<>"-" THEN L$=LEFT$(L$,2) ELSE IF RIGHT$(L$,1)=" " THEN L$=LEFT$(L$,3)
  16. 25 IF L$<>"." THEN GOSUB #0:P$(C)=LEFT$(L$+"         ",11)+LEFT$(S$+"                    ",15)+STR$(C):GOTO 20
  17. 27 C=C-1:CLS
  18. 30 PRINT "Sauvegarde ds MEMO...           Entrez Nom:";
  19. 40 INPUT@(31);$:IF LEN($)>31 THEN "Trop long":GOTO 30
  20. 45 IF $="" THEN RESTORE#:RESTORE# "P"+N$:READ# A$,$:$=MID$($,2,31)
  21. 47 $="#"+$
  22. 50 RESTORE#:RESTORE# "P"+N$:READ# A$
  23. 51 IF C<48 THEN P=1
  24. 52 IF C<40 THEN P=2
  25. 53 IF C<32 THEN P=3
  26. 54 IF C<24 THEN P=4
  27. 55 IF C<16 THEN P=5
  28. 56 IF C<08 THEN P=6
  29. 57 IF C>47 THEN P=-1
  30. 58 IF C=-1 THEN P=7
  31. 60 IF P<>0 THEN $=LEFT$($+"                               ",32)+"2nd Part"+STR$(P)
  32. 70 IF P=0 THEN $=LEFT$($+"                               ",32)+"Attention plus de 47 pas."
  33. 80 $=LEFT$($+"                               ",64)+"Nombre de pas:"+STR$(C+1)
  34. 85 $=LEFT$($+"                               ",96)+" "
  35. 90 $=LEFT$($+"                               ",128)+"Codes      Touches         Pas"
  36. 95 WRITE# $
  37. 100 FOR I=0 TO C:WRITE# P$(I):NEXT I:CLS:GOTO 5
  38. 500 REM CATALOGUE PROG
  39. 510 RESTORE#
  40. 520 RESTORE# "P":READ# A$,B$:PRINT A$;CHR$(13);MID$(B$,2,31):GOTO 520
  41. 600 REM EFFACE PROG
  42. 605 N$=""
  43. 610 CLS:PRINT "No Prog a effacer:";:INPUT@(3);N$:INPUT "Confirmation (O/N):";C$:IF C$="N" THEN RETURN
  44. 620 RESTORE#:RESTORE# "P"+N$:READ# A$,A$
  45. 630 C$=MID$(A$,64+15,3):C=VAL(C$):IF C<0 THEN PRINT "Erreur...":END
  46. 640 RESTORE#:RESTORE# "P"+N$
  47. 650 FOR I=-2 TO C:WRITE#:NEXT I
  48. 660 PRINT "FINI...":RETURN
  49. 700 REM HLP
  50. 710 CLS:PRINT "La syntaxe dans le MEMO doit    etre la suivante:"
  51. 720 PRINT "Pn : n est le num du programme."
  52. 730 PRINT "# : pointeur avant programme."
  53. 740 PRINT "Puis les codes xx.yy.zz, c.a.d  le programme code TI57."
  54. 750 PRINT ". : indique la fin du programme"
  55. 760 RETURN
  56. 1000 RESUME 5
  57.